K
Khách

Hãy nhập câu hỏi của bạn vào đây, nếu là tài khoản VIP, bạn sẽ được ưu tiên trả lời.

lên mạng đi bạn 

làm Pascal khó lắm

2 tháng 11 2021

Program Tin_hoc;

Uses Crt;

Var N: Integer;

Begin

        Write('Nhap so nguyen N');

        Readln(N);

        If N>0 then write(' So do la so duong ');

        If N<0 then write(' So do la so am ');

        If N=0 then write(' So do khong la so am va so duong');

        Readln;

End.

2 tháng 11 2021

Program Tin_hoc;

Uses Crt;

Var N: Integer;

Begin

        Write('Nhap so nguyen N');

        Readln(N);

        If N>0 then write(' So do la so duong ');

        If N<0 then write(' So do la so am ');

        If N=0 then write(' So do khong la so am va so duong');

        Readln;

End.

uses crt;

var a:integer;

begin

clrscr;

write('Nhap a='); readln(a);

if a<0 then writeln(a,' la so am')

else if a>0 then writeln(a,' la so duong')

else writeln(a,' khong la so am cung khong la so duong');

readln;

end.

28 tháng 2 2021

var A: integer;

begin

write('Nhap vao mot so A='); readln(A);

if A>0 then write('So A la so nguyen duong');

if A<0 then write('So A la so nguyen am');

If A=0 then write('So A khong la so nguyen am va khong la so nguyen duong');

readln;

end.

 

uses crt;

var a,b:integer;

begin

clrscr;

readln(a,b);

writeln(a*b);

if (a>0) then writeln('a la so nguyen duong')

else writeln('a la so nguyen am');

readln;

end.

11 tháng 12 2021

b: 

#include <bits/stdc++.h>

using namespace std;

long long a,b,t;

int main()

{

cin>>a>>b;

t=a+b;

cout<<t;

return 0;

}

11 tháng 12 2021

b: 

#include <bits/stdc++.h>

using namespace std;

long long a,b,t;

int main()

{

cin>>a>>b;

t=a+b;

cout<<t;

return 0;

}

19 tháng 12 2021

#include <bits/stdc++.h>

using namespace std;

long long n;

int main()

{

cin>>n;

if (n%2==0) cout<<"Chan";

else cout<<"Le";

return 0;

}

21 tháng 12 2021

hinhf như là sai rồi đó bn